% smcp calculator
% slitting
clear
clc
display("slitting")
tau=10
c=20
delta=8
smcp_index=100*(tau+(c*delta))/(c*delta)

display("forging")
tau=18
c=9
delta=8
smcp_index=100*(tau+(c*delta))/(c*delta)

display("soft grinding")
tau=3
c=11
delta=8
smcp_index=100*(tau+(c*delta))/(c*delta)

display("finish grinding")
tau=5
c=14
delta=8
smcp_index=100*(tau+(c*delta))/(c*delta)

display("lapping")
tau=0
c=25
delta=8
smcp_index=100*(tau+(c*delta))/(c*delta)